﻿Public Class FrmProdutoCadastro
    Inherits Trading.FrmBase

    Private Sub Visualizar(ByVal produto As Model.ProdutoPesquisa) Handles UcProdutoPesquisa1.Visualizar
        UcProdutoCadastro1.Visualiza(produto)

        StatusFrm(FrmModo.Edit)
    End Sub


    Private Sub Incluir() Handles UcProdutoPesquisa1.Incluir
        ' Algo assim
        UcProdutoCadastro1.Novo()

        StatusFrm(FrmModo.Insert)
    End Sub


    Private Sub Salvo() Handles UcProdutoCadastro1.Salvo
        StatusFrm(FrmModo.Viewer)
    End Sub

    Private Sub Cancelado() Handles UcProdutoCadastro1.Cancelado
        StatusFrm(FrmModo.Viewer)
    End Sub


    Private Sub StatusFrm(ByVal Modo As FrmModo)
        If Modo = FrmModo.Insert Or Modo = FrmModo.Edit Then
            UcProdutoPesquisa1.Visible = False
            UcProdutoCadastro1.Visible = True
        End If
        If Modo = FrmModo.Viewer Then
            UcProdutoPesquisa1.Visible = True
            UcProdutoCadastro1.Visible = False
        End If
    End Sub

    Private Sub Sair() Handles UcProdutoPesquisa1.Sair
        Me.Close()
    End Sub

    'Private _produto As Model.Produto

    'Public Property Produto() As Model.Produto
    '    Get
    '        Return _produto
    '    End Get
    '    Set(ByVal value As Model.Produto)
    '        _produto = value
    '    End Set
    'End Property

    'Private Sub FrmProdutoCadastro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    '    'Dim pro As New Model.Produto
    '    ' pro.produto_descricao = "Produto teste"
    '    '_produto = pro

    '    Dim pro2 As New Model.Produto
    '    pro2.cd_produto = 1

    '    _produto = Model.Produto.Find(pro2.cd_produto)

    'End Sub
End Class